﻿Public Class FrmProgress

    Public Sub SetProgress(ByVal Percentage As Integer)
        Try
            CustomProgressbar1.Value = Percentage
            CustomProgressbar1.Text = Percentage & "%"
        Catch ex As Exception
        End Try
    End Sub
    Private Sub FrmProgress_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Location = New Point(My.Computer.Screen.WorkingArea.Width - (Me.Size.Width + 20), My.Computer.Screen.WorkingArea.Height - (Me.Size.Height + 20))
    End Sub
End Class